home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 33
/
Digital_Talk_33_1998-11-22_Digital_Talk_de_Side_B.d64
/
nun hab ich ...
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
6KB
|
168 lines
5 rem nun hab ich dich ...
10 rem vorstellungsbild
11 print"[147]":print:print:print:print:print
12 print" mein lied an dich":print:print
13 print" liebste christl":print:print:print
14 print" karl heinz":print:print:print:print:print:print
15 fort=0to5000:next
16 print" start? (j/n)"
17 getb0$:ifb0$=""then17
18 ifb0$="j"then22
19 ifb0$<>"j"then20
20 ifb0$="n"then998
21 ifb0$<>"n"then17
22 s=54272:forl=stos+24:pokel,0:next:zr=0
24 pokes+24,15:pokes+3,8:pokes+2,120:pokes+5,43:pokes+6,34:fr=65:goto200
25 pokes+24,15:pokes+3,0:pokes+2,120:pokes+5,43:pokes+6,34:fr=65:goto520
26 pokes+24,15:pokes+3,0:pokes+2,120:pokes+5,43:pokes+6,34:fr=65:goto530
200 rem liedablauf
205 restore
210 print"[147]":print:print:print:print:print
215 print" nun hab ich dich,":print
220 print" meinen liebling,":print
222 print" gefunden"
225 readx:ready:readd:ifx=-1then260
230 pokes+1,x:pokes,y:pokes+4,fr
235 fort=1tod:next:pokes+4,0:goto225
240 data0,0,240,43,219,240,43,219,240,39,18,240,34,207,480,26,20,240
242 data34,207,240,43,219,480,34,207,240,43,219,240,46,118,960,43,219,720
244 data-1,-1,0
260 print"[147]":print:print:print:print:print
265 print" und weiss, dass du":print
270 print" die einzige bist !"
275 readx:ready:readd:ifx=-1then310
280 pokes+1,x:pokes,y:pokes+4,fr
285 fort=1tod:next:pokes+4,0:goto275
290 data43,219,240,39,18,360,36,225,120,39,18,240,32,219,240,26,20,480
292 data32,219,240,46,118,240,43,219,960,0,0,240,-1,-1,0
310 print"[147]":print:print:print:print:print
315 print" ich spuerte, dass die erste":print
320 print" aller schoenen stunden"
325 readx:ready:readd:ifx=-1then360
330 pokes+1,x:pokes,y:pokes+4,fr
335 fort=1tod:next:pokes+4,0:goto325
340 data43,219,230,43,219,230,39,18,190
342 data34,207,230,34,207,230,26,20,230,34,207,230,43,219,230,43,219,230
344 data34,207,230,43,219,230,46,118,960,43,219,480,-1,-1,0
360 print"[147]":print:print:print:print:print
365 print" du mir brachtest,":print
370 print" als dein mund mich gekuesst !"
375 readx:ready:readd:ifx=-1then400
380 pokes+1,x:pokes,y:pokes+4,fr
385 fort=1tod:next:pokes+4,0:goto375
390 data52,39,230,43,219,230,39,18,360,36,225,120,39,18,230,32,219,230
392 data26,20,480,32,219,240,39,18,240,34,207,960,0,0,720,-1,-1,0
400 rem strophen - steuerung
405 zr=zr+1
410 if zr=1 then 25
415 if zr=2 then 620
420 if zr=3 then 720
425 if zr=4 then 820
430 if zr=5 then 24
435 if zr=6 then 26
440 if zr=7 then 630
445 if zr=8 then 730
450 if zr=9 then 830
455 if zr=10 then 24
460 if zr=11 then 900
520 rem erste strophe
522 print"[147]":print:print:print:print:print
524 print" noch gar nicht lang ist's her,":print
525 print" ich sehnte mich noch sehr,":print
526 print" nach einem maedchen,":print
527 print" das mich wirklich liebt":print
529 goto 540
530 rem zweite strophe
532 print"[147]":print:print:print:print:print
534 print" jetzt bist du endlich da,":print
535 print" ich spuere dich ganz nah,":print
536 print" bei mir an meinem herzen":print
537 print" ruhst du aus":print
540 readx:ready:readd:ifx=-1then400
545 pokes+1,x:pokes,y:pokes+4,fr
550 fort=1tod:next:pokes+4,0:goto540
560 data26,20,240,43,219,230,43,219,230,43,219,230,39,18,230,34,207,480
565 data0,0,240,26,20,230,43,219,230,43,219,230,43,219,230,39,18,230
570 data34,207,480,0,0,240,26,20,240,43,219,230,43,219,230,43,219,230
575 data46,118,230,52,39,230,52,39,230,46,118,230,43,219,230,39,18,960
580 data0,0,720,-1,-1,0
620 rem erste strophe
622 print"[147]":print:print:print:print:print
624 print" ich hoffte so darauf,":print
625 print" die einsamkeit hoert auf,":print
626 print" wenn es die liebe":print
627 print" endlich fuer mich gibt":print
629 goto 640
630 rem zweite strophe
632 print"[147]":print:print:print:print:print
634 print" du wirst bald meine frau":print
635 print" und ich weiss ganz genau,":print
636 print" das leben sieht fuer uns":print
637 print" nie traurig aus":print
640 readx:ready:readd:ifx=-1then400
645 pokes+1,x:pokes,y:pokes+4,fr
650 fort=1tod:next:pokes+4,0:goto640
660 data26,20,240,46,118,230,46,118,230,46,118,230,43,219,230,39,18,480
665 data0,0,240,26,20,240,46,118,230,46,118,230,46,118,230,43,219,230
670 data39,18,480,0,0,240,26,20,240,46,118,230,46,118,230,46,118,230
675 data52,39,230,58,138,230,58,138,230,52,39,230,46,118,230,43,219,960
680 data0,0,720,-1,-1,0
720 rem erste strophe
722 print"[147]":print:print:print:print:print
724 print" mein herz, das war bereit":print
725 print" schon lange, lange zeit,":print
726 print" nur alle maedchen":print
727 print" rund um mich herum":print
729 goto 740
730 rem zweite strophe
732 print"[147]":print:print:print:print:print
734 print" kann kommen, was da will,":print
735 print" bleib ruhig und bleib still,":print
736 print" nur einzig wichtig":print
737 print" fuer uns beide ist":print
740 readx:ready:readd:ifx=-1then400
745 pokes+1,x:pokes,y:pokes+4,fr
750 fort=1tod:next:pokes+4,0:goto740
760 data26,20,240,43,219,230,43,219,230,43,219,230,39,18,230,34,207,480
765 data0,0,240,26,20,230,43,219,230,43,219,230,43,219,230,39,18,230
770 data34,207,480,0,0,240,26,20,240,43,219,230,43,219,230,43,219,230
775 data46,118,230,52,39,230,52,39,230,46,118,240,43,219,230,58,138,960
780 data0,0,720,-1,-1,0
820 rem erste strophe
822 print"[147]":print:print:print:print:print
824 print" sie spielten blinde kuh":print
825 print" und lachten immerzu":print
826 print" und warn in ihrem innern":print
827 print" doch nur stumm":print
829 goto 840
830 rem zweite strophe
832 print"[147]":print:print:print:print:print
834 print" dass keines von uns zwein":print
835 print" das andre laesst allein":print
836 print" und seine liebe":print
837 print" zu ihm je vergisst !":print
840 readx:ready:readd:ifx=-1then400
845 pokes+1,x:pokes,y:pokes+4,fr
850 fort=1tod:next:pokes+4,0:goto840
860 data58,138,240,69,157,230,69,157,230,69,157,230,65,181,230
865 data58,138,480,0,0,240,69,157,240,52,39,340,58,138,120,52,39,230
870 data46,118,230,43,219,480,0,0,240,26,20,240,39,18,230,39,18,230
875 data39,18,230,43,219,230,46,118,230,46,118,230,43,219,230,39,18,230
880 data34,207,960,-1,-1,0
900 rem wiederholungs - abfrage
902 pokes+24,0
910 print"[147]":print:print:print:print:print
915 print" mein lied an dich":print:print
916 print" liebste christl":print:print:print
917 print" dein":print:print
918 print" karl heinz":print:print:print:print:print
919 fort=1to5000:next
920 print" nochmal? (j/n)"
930 getb1$:ifb1$=""then930
940 ifb1$="j"then22
945 ifb1$<>"j"then950
950 ifb1$="n"then998
960 ifb1$<>"n"then930
998 print"[147]"
999 end